home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 3032.ZIP / RLIB20.ZIP / RL_NTXKE.PRG < prev    next >
Text File  |  1989-02-18  |  571b  |  17 lines
  1. *--------------------------------------------------------------------------
  2. * Function: NtxKeyVal
  3. * Syntax..: NtxKeyVal()
  4. * Returns.: The value from the current database(s) from the evaluation of
  5. *           the index key from the currently selected database.
  6. *--------------------------------------------------------------------------
  7. FUNCTION NtxKeyVal
  8. PRIVATE f_ntx_key
  9.  
  10. f_ntx_key = INDEXKEY(0)               && controlling index key expression
  11.  
  12. IF LEN(TRIM(f_ntx_key)) > 0          && evaluate only if not empty
  13.    RETURN &f_ntx_key
  14. ENDIF
  15.  
  16. RETURN ''
  17.